[[Lepe]]

1.- Puedes usar la función InputBox de delphi (mira en la ayuda para ver los parámetros). O también puedes crearte un Form pequeño con un Edit y un botón. Para mostrarlo, harías Form2.ShowModal; y sería lo mismo que inputBox.

2.- Como bien dices tienes varias alternativas:

Código Delphi [-]
if compareText(edit1.text, edit2.text) = 0 then
  // tiene las mismas letras (aunque puede que sea distinto las mayúsculas o minúsculas)
else
  // los textos varían en alguna letra

Si quieres comparar que sea exacto incluso mayúsculas y minúsculas:

Código Delphi [-]
if edit1.text = edit2.text then

O como quieres hacerlo por letras, pero debes tener cuidado, imagina que un edit tiene 10 letras y el otro sólo 2, cuanto intentes comparar la tercera letra de ambos, se mostrará un error:

Código Delphi [-]
var L1, L2 :integer;
   EsIgual:Boolean;
begin 
L1 := length(edit1.text);
L2 := length(edit2.text);
EsIgual := L1 = L2;
if EsIgual then   // si tienen la misma longitud, ya puedo comparar todas las letras
  for i:= 1 to L1 do
  begin 
       if edit1.text[i] <> edit2.text[i] then
       begin
          EsIgual := False;
          break;
       end;
  end;

(también puede tener errores, ya que lo he escrito directamente en el foro).

Saludos